From: Richard M. Stallman Date: Wed, 27 Apr 1994 23:43:46 +0000 (+0000) Subject: (ange-ftp-completion-hook-function): Use new inhibit vars. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91920 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=57e81f57b9540e75ae76cea5b183171aa230aee7;p=emacs.git (ange-ftp-completion-hook-function): Use new inhibit vars. --- diff --git a/lisp/files.el b/lisp/files.el index 1bba1ef7dae..b3654ec3656 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -244,7 +244,11 @@ and ignores this variable.") (defun ange-ftp-completion-hook-function (op &rest args) (if (memq op '(file-name-completion file-name-all-completions)) (apply 'ange-ftp-hook-function op args) - (let (file-name-handler-alist) + (let ((inhibit-file-name-handlers + (cons 'ange-ftp-completion-hook-function + (and (eq inhibit-file-name-operation op) + inhibit-file-name-handlers))) + (inhibit-file-name-operation op)) (apply op args)))) (defun pwd ()